home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #086 (1990-07)(Amiga User Group Deutschland e.V.).zip / Franz PD Disk #086 (1990-07)(Amiga User Group Deutschland e.V.).adf / Basic_Hilfsprogramme / Amiga-Basic / Reserve < prev    next >
Text File  |  1989-07-02  |  821b  |  23 lines
  1. ' **********************************
  2. ' *       'Reserve' prueft auf     *
  3. ' * vorhandene Speichererweiterung *
  4. ' *  (c) 20.6.1990 by Henry König  *
  5. ' *  Bornheide 53, 2000 Hamurg 53  *
  6. ' **********************************
  7. '
  8. DECLARE FUNCTION AllocMem&(groesse&,anforderung%) LIBRARY
  9. DECLARE FUNCTION FreeMem&(zeiger,groesse&) LIBRARY
  10. LIBRARY "exec.library"
  11. '
  12. start:
  13. INPUT "Speichergröße: ";groesse&
  14. anforderung%=1                           '
  15. mem&=AllocMem&(groesse&,anforderung%)    ' Speicher reservieren
  16. IF mem&<>0 THEN                          ' Rueckgabewert <> 0
  17.   PRINT groesse&;" Bytes Speicher ab: ";mem&;" belegt."
  18.   dummy&=FreeMem&(mem&,groesse&)         ' Speicherplatz wieder freigeben
  19. ELSE                                     ' Rueckgabewert ist 0
  20.   PRINT "Speicherbelegung fehlgeschlagen."
  21. END IF
  22. GOTO start
  23.